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ALL RIGHTS R RESERVED. 
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++ 
Facility: 
SUMSLP utility 
Environment: 
User mode 
Author: 
R. Newland 18-Apr-1979 
Modified by: 


v03-001 BLS0173 Benn Schreiber 26-MAY-1982 
Use general addressing mode for SUMS$XXX_ERR calls. 
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; Define SUM lope 

; Define SUM control block offsets 
; Define SUM record header buffer 
; Define status fields 

; Define system status codes 
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Form-feed character 
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SUM.SRCJUPDATE .MAR; 1 
-SBTTL UPDATE 


+ 
+> 


Functional description: 
This routine is called to perform the update operation and acts 
as the main Line code when applying update packets to an input file. 
Calling sequence: 
BSB SUMSUPDATE 


Input paramters: 
None 


COCS C9 CO 090908 NINN NNN ONO OO 
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Implicit inputs: 
SUMSAX_INPUTRAB = Input file RAB 
SUM$GL_UPDATES = Address of update files List 
SUMSAX_CBL = Address of SUM control block 
Output parameters: 


None 


Implicit outputs: 
None 


Side effects: 
None 


we 


UMSUPDATE:: 
MOVAL W*SUMSGL_FLAGS,R11 


; Set flags longword address 


; Open all input files (including any update files) all required 
; output files. 


BSBW OPEN_FILES ; Open and create all files 
BLBC RO, 408 ; Error if LBC 


> Perform initial processing of update files 
4 PUSHAB W*SUMSAX_INPUTRAB 


PPO 2 OM DQOOODOOOOOOOOO0 00000000000 
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; Initialise update files 
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E11. 
yore) UPDATE BrgEb=198e 08:89:56 LeUMSRcIOspATE Mans? = PA8® hy V4 
SBeE BP BaMh ruta UcSumbRi-vgpAres 
00000000' GF 5 iT.) CALLS #3-G"SUr SINIT_EDIT 
011D 30 " BSBW —s INI T_PAGEHDR ; Initialize Listing page headers 


: This is the main loop. The next Line is read from the input stream 
: and written to the required output files. 
10S: 
0000'CF oF PUSHAB W*SUMS$AX_CBL 3; Get next date Li 
00000000" GE o 8 CALLS #1,G*SUMSLINE “tic gg > 
20 50 +€ RO,20$ ; Error if LBC 
01 0022'CF 81 : CMPW = W*SUMSAX_INPUTRAB+RABSW_RSZ,#1 ; Was record size 1? 
0B ie BNEQ 3; No if NEU 
oc a 7 cure W*SUMSAT_BUFFER,A#FF 3; Was cecore a single form-feed? 
> No 
00 6B 04 ig 15$ BBSS #SSL_V_FORMFEED, (R11) ,15$ ; Set form-feed flag 
9150 30 " - BSBW = OUTPUT_LINE : Write Line to output file 
25 50 +€9 BLBC RO,40$ ; Error if LBC 
0181 30 F LIST_LINE ; Write Line to Listing file 
1f 50 «2&9 BLBC RO,40$ : Error if LBC 
d2. «1 BRB 10$ 
; Error processing 
50$: 
00000000'8F 50 01 CMPL RO, #RMS$_EOF ; Is error end-of-file? 
11. «13 BEQL «©=_-30 : Yes if EQL 


> Extract facility code and if SUM error form and print message 
EXTZV #STS$V_FAC_NO, - 


>» Bw & we FF 


-FACL :; Get facility code 
#STS$S_FAC_NO,RO,R1 : into R1 
0084 8F 51 81 CMPW =-R1, #<SOMS_RORMAL@-16> =; Is error from SUM? 
5 BNEQ 4 3; No if NEQ 
02A 3 BSBW SUM_ERROR ; Report error 
B 11 BRB 10$ ; and go back for next Line 
: End-of-file processing 
S0s: 
0097 30 408 BSBW CLOSE_FILES ; Close all files 
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UPDAT 16-SEP-1984 02:13: AX/VMS Macro Vv04-00 p UPC 
v04=000 OPEN_FILES greee robe BS: asso PeMm eS ase On, 00, OeF ks vo4 
D 1 -SBTTL OPEN_FILES 
é 1 ¢ 3 whet 
En aes 
ép 128 ; Functional description: 
a } 9 ; This routine opens all input files and creates all required output files 
D 182; 
rt } ; Calling sequence: 
0 D 185; BSB OPEN_FILES 
whe 
Oeb 183 Input parameters: 
06D 190; None 
Seb 192: 
BoeD 138 ; Implicit inputs: 
006D 195: SUMSAX_INPUTFAB = Input file FAB 
44 138 3 SUMSAX_INPUTRAB = Input file RAB 
06D 197 ; SUMSAX_INPUTNAM = Input file NAM block 
006D 198 ; SUMSGL_UPDATES = Update files list address 
444 199 ; SUMSAX_OUTPUFAB = Output file FAB 
06D 00 ; SUMSAX_OUTPURAB = Output file RAB 
006D Q1 ; SUMSAX_LISTFAB = List file FAB 
~ 0060 §¢ 5 SUMSAX_LISTRAB = List file RAB 
Cae 
'¥¢3 05 : Output parameters: 
06D 88 ; None 
Oe> 309 
06D 10 ; Implicit outputs: 
06D 11; 
06D \§ : None 
bp 14 ; 
rt 1? ; Side effects: 
6D 19 : None 
6D 8 3 
ae 
Oep ° OPEN_FILES: 
O¢p ; Open input file and connect FAB to RAB 
6D c- SOPEN FAB = W*SUMSAX_INPUTFAB - ; Open input file 
$p § = G*SUMSOPEN_ERR 
41 50 €9 f BLBC RO,15$ 3; Error if LBC 
H § y SCONNECT RAB= W*SUMSAX_INPUTRAB - ; Connenct input file to RAB 
1 0 ERR = G*SUMSOPEN_ERR 
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E1 QOAD 
Bost 
081 
E9 Bote 
OC 
OCS 
0Cc5 
E9 0006 
Q0D9 
0009 
0009 
sto 
E1 00D9 
QODD 
Q0DD 
E9 OQOEE 
Bae 4 
OF1 
0102 
05 0102 
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BLBC RO, 30$ 


If there is an updete files List call 
open all — | 
he in 


es. The input file 


to supply tial default values. 
TSTL ¥SUMSEL UPDATES 
BEQL 10 
PUSHAB W*SUMSGL_UPDATES 
PUSHAB W*SUMSAX_INPUTNAM 
CALLS #e oP UMSOPEN 
LBC RO,.50 
10S: 


—— 
“ 
sad 
oro 


BBC #SSL_V_OUTPUT, (R11) ,20$ 
SCREATE FAB = Q*SUMSAX_OUTPUFAB 
ERR_= G*SUMSOPEN_ERR 
BLBC ~=—_- RO, 308 


SCONNECT RAB= W*SUMSAX_OUTPURAB 
ERR_= G*SUMSOPEN_ERR 
BLBC ~=—_- RO, 308 


45:88 POHAVES Hacre YORs0O, 


3; Error if LBC 

SUM procedure to 
NAM block is used 

3; Any updates? 

: Noite Q 

; Open update files 


3; Error if LBC 


; Branch if no output file 
- ; Create output file 


; Error if LBC 
- ; Connect output file to RAB 
3; Error if LBC 


Pa 6 
ge 2 


: If output file was requested create output file and connect RAB to FAB. 


F If Listing file was requested create Listing file and connect RAB to FAB. 


208: 


30$: 


#SSL_V_LIST, (R11) ,30$ 
EATE FAB = Q*SUMSAX_LISTFAB - 
ERR_= G*SUMSOPEN_ERR 


es 
NNECT  RAB= W*SUMSAX_LISTRAB - 


8B 
$C 
BL 
$c 
RR = G*SUMSOPEN_ERR 


C 
R 
B 
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RSB 


; Branch if no Listing file 
; Create Listing file 


; Connect Listing file to RAB 
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BSB 


None 


None 


None 


Side effects: 
None 
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LOSE _FILES: 
PUSHAB 


SCLOSE 


BBC 
SCLOSE 
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CLOSE 
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CLOSE_FILES 


; Functional description: 
This routine closes all input and output files. 


Caliing sequence: 


CLOSE_FILES 


Input parameters: 


Implicit inputs: 


SUMSAX_INPUTFAB = 
SUMSAX—OUTPUFAB = 
SUMSAX_LISTFAB = List file FAB 
SUMSAX~CBL = 


SUM control block 


Output parameters: 


Implicit outputs: 


W*SUMSAX CBL 
#1,G*SUMSCLOSE 


FAB = SUMSAX_INPUTFAB 


#SSL_V_OUTPUT,(R11),10$ ; Branch if no output file 
FAB = SUMSAX_OUTPUFAB 
#SSL_V_LIST,(R11),20$  ; Branch if no Listing file 
FAB = SUMSAX_LISTFAB 


; Close update files 


UP 
v0é 


I 11 

INIT_PAGEHDR Br SEp= 1984 03:39:56 LeUMVSRCIOSDATE MARSA sage” 
-SBTTL INIT _PAGEHDR 

++ 

Functional description: 

This routine initialises the control variables and title Line used 

to format a Listing. 

Calling sequence: 

BSB INIT_PAGEHDR 


Input parameters: 
None 


Implicit inputs: 
None 


Output parameters: 
None 


Implicit outputs: 
SUM$GW_PAGENO = Initial page number 
SUM$GW_PAGESZ = Page size (Lines/page) 
SUMSAT_TITLEDT = Title Line current date/time 
Side effects: 
None 


NIT_PAGEHDR: 
BBC 


i 


oss V.LIST,(R11),20$ ; Skip this if no Listing 


51 68 1 
90000000" F 06 re CALL G*LIBSLP_LINES Get system Lines/page 
CF 0 0 A SUBW #9,RO,W*SUMSGW_PAGESZ Set page size allow ng for 3 Line top 
margin, 3 Line title/subtitle/blank 


and 3 [ine bottom margin 
Cause initial new page 


0000'CF Q000°CF B80 
QO0O'CF B84 


MOVW W*SUMSGW_PAGESZ, - 
W*SUMSGW_LINENO 

CLRW W*SUMSGW_PAGENO : Initialise page number 

SASCTIM_S ,W*SUMS$GQ_TITLEDS ; Get current date/time and put into 


3 title Line 

SASCTIM_S ,W*SUM$GQ SBTTLDS, - ; Get lngut file creation date/time and 
w*SUMSAX_INPUTXAB+XAB$Q_CDT ; convert to AS 

MOVZBL W*SUMSAX-INPUTNAM+NAMSB_RSL,R1 ; Get resultant file-spec Length 
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‘SEES ABLES URARCTBESRMAGRS, Pe 
R1,#45 i Is is > 457 
; No if LEQ 


1 3 
WOE oa 3; Set to maximum size 


R1,W*SUMSAT_INPUTFN, = ; Move file name into subtitle buff 
w*SUMSAT_SBTTLFS u e buffer 
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; Functional description: 


; This routine writes fhe current Line to the oute t file. If the /HEAD 
; qualifier was specified the record will have a 5 byte record header buffer. 


ooo 
ere 


DAWNING 


; Calling sequence: 
BSB OUTPUT_LINE 


; Input parameters: 
None 


; Implicit inputs: 


: SUMSAX_INPUTRAB = Input file RAB 
3 SUMSAX_OUTPURAB = Output file RAB 
: SUMSGL_FLAGS Flags word 

3 SUMSAX_CBL = SUM control block 
6 


Output parameters: 
None 


Implicit outputs: 
SUMSAX_RHB = Record header buffer 


Side effects: 
None 


UTPUT_LINE: 
MOVL #SS$_NORMAL ,RO ; Assume successful completion 


: If output file not requested then exit from routine 
; BBC #SSL_V_OUTPUT,(R11),30$ ; Branch if no output file 
; Get size of input record and use to set size of output record 


: MOVW W*SUMSAX_INPUTRAB+RABSW_RSZ, - ; Copy input record size 
W*SUMSAX_OUTPURAB+RABSW_RS 3 to output RAB 


: If /HEAD was not requested then ready to output Line, otherwise 
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Branch if no RHB field in output file 


Get control block address 
and record header address 
Clear record header buffer 


Branch if Line came from update file 


Copy Line number into record 

header buffer 

Branch if no deleted Lines information 
with this source Line 

Copy number of deleted Lines into 
record header buffer 


; Copy insert wane into record 
; header buffe 
; Branch if audit trail switched off 


ot audit trail string size 
gS greeter than maximum size? 


Aol size to maximum 


Copy audit trail string into 
record header buffer 


output file 


4168 O03 €1 A 449 BBC #SSL_V_HEADER, (R11) ,208 ; 
i. i ; Fill Record header field with information from SUM control block 
9€ O1A6 453 ° MOVAB wW*SUMSAX (BL, R : 
van BPE E Ce co 
1864 ase ernésze (R?) y 
10 1C A6 «6002)~=«CEO sO01B H BBS #SUM_V_SRCUPD : 
188 438 SUM_6_FLAGS(R6) , 10S 
is i81 ; Line came from source file 
67 18 A6 BO O1BB 4 é ; MOVW SUM_W -LINE_NO(RG), - |; 
1BF 46 SHB~W-LINE-NO(R7) : 
sic ne OT Ba ae PHLETRG aos 
02 A? 1A 06 BO 01C4 466 MOVW SUMa INSERT NO(RG), - 3 
o1¢9 46 SHB_WIINSERT_NO.R ) ; 
7% 6tt 1¢9 468 BRB 0$ 
Orc 133 > Line came from an update file 
O1eB 92 fos 
ar ee He ow pm rami = 
121¢ A6 00 €1 0100 475 BBC Suh q pAUDLT ne : 
51 08 a6 3¢ abe 133 MOVZWL sun “Q-AUDDS(R6).R1 ; 
rt Bat Sie ag teen | 
51 08 00 1DE 480 aa MOVL § #SHB_K_AUDSZ,R1 ; 
04 a7 0C B6 51 28 O181 4 g "  MOVC3)—s«R1, @SUM_Q AUDDS#4(R6), ~: -; 
TE? 4 ; SHB_T_AODIT : 
bie! 485 ; Put Line (with record header buffer) to 
SEs ¢ 2 bos: 
OIE? 488 | $PUT RAB = SUMSAX_OUTPURAB - 
1E7 489 ERR = G*SUMSQRITE_ERR 
O1FA 490 308: 
05 OFA 491 RSB 
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Functional description: 
This routine forms a Listing Line which shows the audit trail, source 
Line number or insert Line number and the source or update Line. 
Calling sequence: 

BSB LIST_LINE 


; Input paramters: 
None 


; Implicit inputs: 
SUMSAX_CBL = SUM control block 
SUM_GL_FLAGS = i298 wor 
SUMSAT_AUDIT = Listing Line buffer 
Output paramters: 
None 


Implicit outputs: 
None 


Side effects: 
None 


IST_LINE: 
“ MOVL #SS$_NORMAL ,RO ; Assume successful completion 
BBC #SSL_V_LIST,(R11),60$  ; Branch if no Listing file 


: Ciear audit trail and Line number fields 


MOVAB W*SUMSAT_AUDIT,R7 : Se 
MOVCS #0,(R7),B*A/ /. = > Fi 
#SSLSAULSZE, (R?) 


MOVAB W*SUMSAX_CBL,R6 ; Get SUM control block address 
BBS #SUM_V_SRCUPO, - : Branch if updated Line 
SUM_6_FLAGS(R6) ,208 


t pointer to audit/Line no. fields 
LL these fields with spaces 
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06 1C A6 00 
67 OC B6 08 A6 
52. 1A AG 
57 0006'CF 
00BA 

77 


O022°CF 18 
58 

OOFF 8F 5 
05 

58 OOFF &F 


59  0000'°CF 
0001 


LIST_LINE 


SOOCOCOCOCOOOCOCOCOCOOOCO OOOO OOOOOOOOoOO 


RIPIPONINIPONPINPIPINYININININININPYNINYINIPYNINY 


PAA ORAMNII ES RE EEE WAIN AAAI 


WOW OW OLS WMMM MMMM WD COW NODE LLL SMP OOW NOON 


QPVPVPVIVIV LIV LPVLUIVSPUDUIVIVLUSIUSIVSIVSU SUSI USIVUSUSUSOSI USS ISIS VS VST TOS VOSS SISOS IOSIOSIOSIOSIIOI 


SSEp=198e 09:39:36 


Line has 


fone from spyrce file 
If there is 


deleted | 


Sete Sete 


AX/VMS Macro Vv04-00 
SUM. SRC JUPDATE .MAR; 1 


le. 
ne information put ‘=n’ into audit trail field, 
and put source Line number into Line number field 


; Branch if no deleted Lines information 


: Insert leading ‘'-" character 


; Output number into 


Get number of deleted Lines 
and output into audit trail field 


Get source Line number 
Set address to put number 
Line number field 


is switched on copy audit trail into audit trail field, 
e 


Branch if audit trailing switched off 


; Copy audit trail string into 
audit . 


trail field 
Get insert Line number 
Set field address 


Output number into field 
and add leading *.* character 


Is total size > SSLS$BUFSZE 
Set size to SSLSBUFSZE bytes 
Set address of Line 


4 BBC #SUM_V_DELETE, = 3 

5 SUM_B_FLAGS(R6) , 10$ 

§ MOVB #*°A7=7,(R7)+ 

MOVZWL SUM_W_[NSERT_NO(R6),R2 : 

28 10$ BSBW DEC-LTOR 3 
60 MOVZWL SUM _W_LINE_NO(R6) ,R2 3 
6 MOVAB  W*SOMSAT_LINENE,R? ; 

BSBW bee =RTOL 

o7 BRB 40$ 
65 ; Line has come from an update file. 
06 3; If audit trailin 
? ; and put insert Line number into Line number field. 
85 208 
70 BBC #SUM_V_AUDIT, - é 
71 SUM_B_FLAGS(R6) ,30$ 
ie MOVC3 SUM _Q AUDDS(R6), - 
3 i @SUR_O_AUDDS+4(R6),(R7) : 
75 MOVZWL SUM_W_INSERT_NO(R6),R2 ; 
2 MOVAB W*SOMSAT_LINENO+6,R? ~ ; 
7 BSBW DEC_RT F} 
78 MOVB #*°A7./,-(R7) : 
i 
81 ; Add sigs of audit trail/Line number fields to size of Line and if 
Ht 3; over 152 characters reduce to 132 characters, then print Line 
84 40s 
85 ADDWS #SSLSAULSZE, - 
86 W*SUMSAX_INPUTRAB+RABSW_RSZ,R8 
8 CMPW RB, #SSLSBUFSZE 3 
88 BLEQ 5 : No if L 
89 MOVW #SSLSBUFSZE,R8 3 
90 50$: 
91 MOVAB W*SUMSAT_AUDIT,R9 ; Set addr 
3 BSBW PRINT_LIRE ; Print Line 
93 60$: 
94 RSB 


ree Baar a 


C 
Cc 
d 
) 
ERF 
EX 
EX 
EX 
LI 
Fl 
FI 
FI 
FOF 
IN] 
REL 
10( 
101 
10 
10 


Py o> + 


B 12 
UPDAT 16-SEP-1984 02:13:28 VAX/VMS Macro v04-00 p 
v04-000 PRINT_LINE ie CH a MS ETT 1 


~SBTTL PRINT LINE 


OO 


aa 
aa 


Functional description: 
This vous "0? outpuys a single Line to the listing file. If the current 
page is full the line is printed on a new page. 
Calling sequence: 
BSB PRINT_LINE 


Input parameters: 
R8 = Record size 
R9 = Record address 
Implicit inputs: 
SUMSGL_FLAGS = Flags word 


Output parameters: 
None 


Implicit outputs: 
None 


Side effects: 
None 


we Sete Ge Ge Fe Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Se Se Sete Ge 


RINT_LINE: 
MOVL 


PWIA WIAA AAAI AIROPOPIPOPOPIPONPUNRY) 2 3 QOOODOOCOOOOC OOO 


ROOD NA NEUADD = OOD NAN E WIN "9 OD NAN EWN 9 OD NOAU EWI 0 ODOM EW OO ONO 


NON OS OS OS OS OS OS DS OS DS OS DS OS DSO DPA PAA AAA AAA AAA AAAAAAO 


oO —~“ 
mn@oouen A— SF ONOM OOO ODODOOOOVOODOOOODOOVOVDOOVOVOOOOVODODOVOOVOOOOOOWODO 
LPP PPPAAPAAAPAA AA AAA AA AA AA AA AA AA AA AA AAA A AA AA AOA AAAO AAO UIIIN 


: 
: 
: 
| 


50 4 dO #SS$_NORMAL ,RO ; Assume successful completion 
63 68 ,. RY BB #SSL_V LIST, (R11) .30$ ; Branch if no Listing fil 
CMPW W*SUPSGW_LINENO,W°SUM$GW_PAGESZ ; Is current page full? 
0000'CF o000"tt 4 r *SUASGW_LI $ AGES? Ft full 
; No 
300 8F 6B 4 PUSHR vances R9> ; Save Line size/address 
000'CF 86 4 W*SUMSGW_PAGENO : Increment page number 
2s 000'CF C 4 MOVZWL W*SUMSGW_PAGENO,R2 ; Get current page number 
5 00 nop F 4 MOVAL W*SUMSAT_TITLEPN,R7 ; and address in title Line 
0 7 4 DEC_RTOL ; Convert to ASCII 
8 900 8F C 4 MOVZWL #SUASK TITLELN, RE ; Get title Line size 
9 00'CF 4 MOVAL W*SUMSAT_TITLE,R ; and edgress 
039 BSBW PUT ine ; and print 
15 50 3 BLBC RO,T ; Error if LBC 
“ ° ; Get subtitle Line size 
58  0000'8F C MOVZWL #SUMSK_SBTTLLN,R8 G btitle Li i 


¢ 12 
PRINT_LINE "Or See=1be OS:dorse Leama Tabbkry maser tere ' 5 


59 O000'CF A 3 MOVAL W*SUMSAT_SBTTL,R9 3; and address 
0 A ¢ BSBW PUT ‘ NE i; and print 
0 E AP BLBC RO,T : Error if L 
4 § CLRL ; Print blank line | 
W UT_LIN 
00 0 ; 108 BSB PUT_LINE 
69 ‘CF B4 B CLRW W*SUM$GW_LINENO ; Reset Line number 
F BA B g POPR #*M<RB,ROD ; Restor , ice size/address 
0 €9 a 208 BLBC RO, 30 : Error 
wr F 4 B g INCW IR ig _LINENO 3 sen Line number 
OOF C 4 BSBW PUT_LINE™ ; ne 
08 E C 5 BLBC R f LBC 
07 68 046 «€5 O2C 66 BBCC 3s #S SL V -FORMEEED. (R11), 306 ; “Branch 17 not FF record 
O000'CF OO00'CF B80 OeC 6 MOVW WSU ascw ESZ. - : Make page full 
6 4 oe8 308 W*SUMSGW_ CIRENG 
05 D $36 RSB 


————e co 
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UPDAT 16-SEP-1984 02:13: AX/YMS Macro v04-00 Page 1 
V04-000 PUT_LINE BreEp= 188s 08:40:56 Leta eactasbare mast 9 10) 

D4 -SBTTL PUT_LINE 

Dd 

po? Functional description: 

71 This routine puts a single record to the Listing file. 

D4 

+ Calling sequence: 

D4 BSB PUT_LINE 

D4 

D4 

ee Input parameters: 

D4 R8 = Record size 

¥ R9 = Record address 

DG Implicit input 

mplic nputs: 
Dé p p 


SUMSAX_LISTRAB = Listing file RAB 


Output parameters: 
None 


Implicit outputs: 
: None 


Side effects: 


ee Se Se Se Se Se Se Oe Ge Se Ge Se Se Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Ge Se Ge Ge Ge Ge Se Se Se Se Sete 
+ 


CSVUTCVTVTVTCOVTO TIT VTVT VV VCVTVCTCSO 


i 
AMMO SRE RRR PRR R PRPS 
NNN NNSA AAAAAAAAAAAAAAAMPAAAAAAAAAMAO 


St | MQDOOQDODOOOO OOO OOOOVO OCOCWODWWOWOOCOOO NNN 


MEW OOO NOAU EWN $$ 9 OO NOAU EWN (OOO NOU EWN 0 OONOUE Un 


eww ielololololololololo! 


None 
PuT_LINE 
0022'CF 58 B60 R8,W*SUMSAX_LISTRAB+RAB$SW_RSZ ; Set record size 
0028'CF 59 00 MOVL  R9,W*SUMSAX~LISTRAB AB+RABSL - “RBF =; and buffer address 
SPUT  RAB=W*SUMSA AX LIS! ’ 


R 
ERR=G*SUMSWRT RR 


mo 


05 


oat oS es Sadia eee ee 


E 12 ; 
PDAT 16-SEP-1984 02:13: AX/VMS Macro V04-00 Page 17 -% 
yo4-000 DEC_LTOR orSEe m1 bbs OS:40;50 LelM tec TaSbary nage t i) 
4 i -SBTTL DEC _LTOR 
f 19 3 + Pse 
i : Functional descrition: -- 
F : This routine outputs a decimal number left to right $$! 
F 5; 
f § ; Calling sequence: $$! 
FO 78 : BSB DEC_LTOR “x 
FO 7 p : 
‘ f ; Input paramters: $81 
F 7 : : Ré = Number to output 
: f 2 3 R7 = Address to put output characters $31 
FO 7 gi: 
: 4 f 3 Implicit inputs: $83 
ete 
FO 741: ssi 
; rg ; Output parameters: 
03F0 pe ; R7 = Address of byte after last digit of number $$$ 
FO 74g : 
4 o 3; Implicit outputs: 
F 749 : None $$$ 
F £31 : $$3 
: f ¢ : Side effects: 
F t37 : R2, R3 zeroed 
aie - 
F 757 ; 
TOR: 
53 4 i a CLRL R3 ; Clear high register $$! 
V. #10,R2,R2,R0 : Get least significant digit 
ad ¢ 36 30 i f 78¢ ADDB3 FAO RO GSP) ; Convert to ASCII char and stack 
; D FB Nt iit 26s ; ALL 9 pyster converted? 
’ if FP ree BSBB ( $ ; Call routine again to convert next char $$! 
1 £06 20$: 
87 ~=BE 39 1 76 MOVB (SP)+,(R7)+ ; Move character to output buffer 
0 4 768 RSB 


F 12 
Vou-060 DEC_RTOL "Pep 1984 88:49:56 FSUM SRCTOBDATE MAST Page (18) 
-SBTTL DEC _RTOL 
++ 
; Functional descrition: 
This routine outputs a decimal number right to left 


Calling sequence: 
BSB DEC_RTOL 


Input paramters: 
‘is = Number to out 
® Address Sunedtatety after right margin of number 
Implicit inputs: 
None 


Output parameters: 
R7 = Address of most significant digit of number 


Implicit outputs: 
None 


Side effects: 
R2, R3 zeroed 


— Dee ee ee Sete Ge Ge Be Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Fe Ge Ge Fe Se Ge Ge Se Se Ge Ge Se Ge Se Se 


2 QOOCOOOOO COSCO SOOSOSSOSCSOSOOOOCOSOOOOOOOOOOOOOOOOOOOO 


PRIDOO NENG LLLP PV DVDVIVPVSUSUSDUSVUSUSUSUSU SUSI ESISISTSUSISIOSTSISIOSISIS ISIS 


St | “QOOCDOOOOSOCSOOCOOOOO OO OOWDWWDOOWOOOD INNS 
DONA UNE WIN OO ONO NE WIN 9 CDNA UE WII OD NOU EWN 0 OONOU SE WO 


Ooo 
WAU NAA AA AAI AWN NIAAA AWN AIA AIAN WIAA 
00909090009090909 090909 09 09 09 09 0909 0908 SIN NINN 


“ 

o 
~w 
wn 
wu 
on 
wo uv 
or Ww 

~J 
re 
SOOCOCCOOCOCOOCOCOCOOCOOOOCOOCOOOOOOOOOOO 


EC_RTOL: : 
0s CLRL R3 ; Clear high register 
78 EDIV #10 Re RE RO ; Get least significant digit 
81 ADDB3 = #*A/0/,R0,-(R7) : Convert to ASCII char and put in 
3 ouEpus buffer 
36 D5 TSTL Re ; ALL of number converted? 
F ig ry 10$ 3; No if NEQ 


vee 


56 


2E 1C A6 


00848800 aa: 


F 


SUM_ERROR 


HPP IPMPOPPININUA) 2 2 9 


PUD COCO ODGD OD DD BD VSP UIUSUS VS USUI USUI SIS VASSAL OSS ISIS 


IRA AA AAA AAD AAA AAT BS BB Be ES AAA PUPOPOPOPONIND 


? 
87 
B75 BLBC 
87 
? 


"$$E6=158¢ 98:59:58 USUaNsaclupparecnanss =| #8* (8, 


-SBTTL SUM_ERROR 


> 
nal 


Functional description: 
This routine forms and prints_error messages which describe 
Source Update Merge errors. The messages will be output to 
the system error device and the Listing file. 

Calling sequence: 


BSB SUM_ERROR 


Input parameters: 
RO = Error code 


Implicit inputs: 
SUMSAX_CBL is SUM control block 


Output parameters: 
None 


Implicit outputs: 
None 


Side effects: 
RO to R5 is destroyed 


Sie e Se Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Be Ge Se Ge Ge Se Se Se Ge Ge Ge Se Sse Be Se Ge Se Fe Se Se Se Sete 


NOAUE AN SO OO NAU EWN 9 OD NA UNE WIN 0 OO NOE  O ONO wn 


UM_ERROR: 
MOVAB W*SUMSAX_CBL,R6 ; Get address of SUM control block 
CMPL R #SUMS-EDITSCLSH ; Is it "Edits clash’ error? 
BNEG =: 108 ; No if.N 
BBS #SUM_V_SUBCLSH, - ; Branch if not first error Line 
SUM_B_FLAGS (R65 ,30$ ; of error report 


: If first error print error message 
SGETMSG_S RO,W*SUMSAW MSGLEN,- ; Get error message 
W*SUMSAQ_MSGDES 
; Error if LBC 


R : 
MOVZWL W*SUMSAW_MSGLEN. RS : Get message Length 
MOVAL W*SUMSAT_MSGBUF ,R ; and address 


H 12 
VOe- 060 SUM_ERROR "BSE Tbs 09:45:50 LeMMMee Hele nat Page 93) 


00 3 4A 7 BSBW TERM_LINE ; Output fo terminal 
4C § 4 7 BLBC RO,90 3; Error if LB 
FF BSBW = PRINT_LINE : Output fo listing file 
46 5 E : BLBC RO,90$ ; Error if LBC 
: ; Now print erroneous source Line 
5 $0s 
38 OO eg ect af § MOVZWL W*SUMSAX_INPUTRAB+RABSW_RSZ,R 3; Get Line size 
9 O28'CF OD 2 4 MOVL W*SUMSAX_INPUTRAB+RABSL_RBF,R9I ; and address 
6 ; Append name of file from which Line came 
51 59 58 1 6 91 ° ADDL3 RB, R9,R1 ; Set pointer to end of Line 
5 10 A6 C 64 35 MOVZWL SUM_Q_FILESP(R6),RO ; Get size of file-spec 
: 4 C8 68 9 ADDL #4,R : Include size of separating spaces 
C 68 94 ADDL RO,R ; Compute total size of Line 
OOOOOOFF 8F 01 8 95 CMPL RB ,#SSLSBUFSZE ; Will it fit in buffer? 
1 1 38 BLEQ ; Yes if LEQ 
52 58  O00000FF gf C 7 9 SUBL Senko Senne ; Compute size of overflow 
é § 7F 98 SUBL R2,R1 ; and move pointer back this amount 
58 «(O0OFF BF a3 é 99 “ MOVZWL #SSLSBUFSZE,R8 : Set Line size to maximum 
81, 20202020 BF 09 7 901 MOVL. #*A/ — /,(R1)4 ; Insert four spaces 
61 14 B6 0 ¢ 4 Ons MOVC3 RO,@SUM Q_FILESP+4(R6),(R1) 3; Copy file name to Line 
0 0 90 BSBW TERM_LINE ; Output to terminal 
03 50 +4 96 904 BLBC ; Error if LB 
FECD 0 0 oe +44 BSBW PRINT_LINE ; Output to Listing file 
b39¢ 907 90s: 
05 039C 908 RSB 


UPDAT 


v04-0 TERM_LINE 


-SBTTL TERM_LINE 


—qee eee 


tERM_ an 


RB ,W*SUMSAX_ ML re a $+ RSZ 


AX/VMS Macro Vv04-00 
SUM. SRCJUPDATE.MAR; 1 


"SrSEp=| /8¢ 08:49:96 


3; Set record size 


sy Pty ot Xele wr ee “RBF =; and buffer address 


TERMRAB, 
ERR = G SUMSURTTE aERR 


-SEP- :13: AX/VMS Macro V04-00 Page 22 5 
UPDATE "er SEp= 1984 09:59:56 LeUM SRCIOSDATE MARCA ff 
Symbol table Ps, 
SUMSAX_INPUTNAM teneeeee =X ve 
aE thed ES SuneAe NEU TEAs <= vi 
BIT... a = 
CLOSE FILES R SUMSAXCLISTEAB ceeeeeee 
DEC_LTOR FO R SOAR UT PUTAS RARE x 
pecan TOL e o¢ R Raat BUT PURAR RRRRHREH . 
SU AX= HB RRERHHEE 
ee ght eeetesee ‘ x 03 seere ee ieee . 
alat her 8000008 * SUMSGL_FLAGS eneneene x 
WARNSE RSL . g MSGL-UPDATES eenserse = 
OPEN FILES gp R srt GQ°SBTTLDS RRRRAREE x 
OUTPOT_LINE 4 R a eeecanti rene eaeeeeee =X 
PRINT CINE 69 R SU - ateeeeee 
TL D4 R SUMSGW~LINENO eat a 
RABSL _RBF . ; $8 See ee ao AeEND aeeeenee = §6¥ 
ABSW _RSZ = 00 SU T T eeerereer§ YX 0 
MS$ eeneeeee xX 02 SUMSIN tl eseecese § 6 
sis AUDSz * eset SuneesBTTELN sams ff 
SHB-T-AUDIT 9090004 SUMEOPEN ens f 
SHB_W_INSERT NO 00 0 if SUMSOPEN ERR RERRRRRE xX 0 
1 eal = 990000 SUMSUPDATE 00000000 RG 8S Y$| 
358 NORMAL = 99000 1 SUMSWRITE_ERR S ceereees an 0 
Ser SAU STE = 90000010 SUMECNORMAL = 00848001 ~ 
SSLSAUTS = 
SSLSBUF SZE = 900006 F SUM_6 FLAGS 990001¢ ‘ me | 
SSLSFILSZE = 90000040 SUMZERROR St SFR YE 
SSLSLNOSZE = 00000006 enters 9600004 
SSLSRHBSZE = 000 sunt -iSp 0000000 
SSL_M_FORMFEED = 9000001 a = 00000001 
SSL~M~HEADER = 0000000 SUACACAUDIT meh 4444 
ieee ‘ 090 3 SUMTR-DELETE : 0900 fi 
SSL-M_OUTPUT = 6 1 SURTATSRCUPD | . 9900004 
SSL_V_F ORMFEED = 00 4 A ttt: ° 
SSL~V~HEADER = 99 ee ttt 900001 
SSL-V“LIST = SUA_@_F IL ‘ 3 0 
SSC ~V~ MODE s SUM~V—AUDIT ° 3 ot 
SSL-V~OUTPUT = 0 SUN-V"AUDI TNE : } 
STS$S-FAC_NO = f eS = §000000 
STS$V-FAC-NO = 0000001 a Hh ° 5 
SUMSAG_MSGDES etteeeee 8 6X SUM_V_SUBCLSH 8 y2 
SUMSAT AUDIT ereneeee 8 6X SUM_W_INSERT_NO 18 | 
SUMSAT “BUFFER eeeeeeee SUM-W-LINE_NO socesses G8 YE 
SUMSAT~ INPUTFN eteeneee 8 SVSSASC IIA eeeccese Oh 8 
SUMSAT“L INENE eteneeee YX SYSS$CLO Ect eecesece 6x 
SUMSAT”LINENO eeeeeeee YX SYSSCONN peeooces. a2 YE 
SUMSAT-MSGBUF eeeeeeee avaccreAls aeoeeese am 
SUMSAT~ SBTTL eeencese § svezeeres eeeeeene 6X 
SUMSAT"SBTTLFS tecenere = X ABS yt eeneeeee GX | 
SUSAT~TITLEPN cecceeee TERR LINE 0000039D R " 
SUMSAT_T : eeeeeeee 
- XABSG_CDT 
SURGAUCASGLEN peoeenes | 
SUMSAX~ INPUTFAB peenee”s 


PDATE 16-SEP-1984 02:13: AX/VMS Macro _V04-00 Pa 3 
Psect synopsis BSP 198 09:49:56 LeUmveaclaspary mast ° fy 
pa were scene ee mo ome $ 
: Psect synopsis ! 
tween noes wm meena} 
PSECT name Allocation PSECT No. Attributes 
- jABS . 88008 00 ¢ et 0(¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS Q00001D ¢ é -) QO1¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE’ AD WRT NOVEC BYTE 
SUMSCODE 00000389 (¢ 953.) 2¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
bo et wwe me meee eee 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 33 98:00:00.) 0:00:00.5 
Command processing 11 a § 0:00:03.1 
Pass 334 B88 23%. 0:00: 3-3) 
Symbol table sort 0 00:00:01.41 0:00:02.9 
Pass 2 156 0: at 0:00:06.6 
Symbol table output 14 0:00:00.11 0:00:00.1 
Psect synopsis output 3 0: 808 BS 00:00:00.0 
Cross-reference output 00:00:00.0 Sha oes 
Assembler run totals 654 00:00:16.54 00:00:40.39 


The working set Limit was 1350 pages. 
63551 bytes (125 pages) of virtual memory were used to buffer the intermediate Gg°r- 
There were 60 pages of symbol table space allocated to hold 1006 non-local and 33 local symbols. 
921 source lines were read in Pass 1, producing 19 object records in Pass 2. 
pages of virtual memory were used to define 29 macros. 


ey 


: Macro Library statistics ; 


Macro Library name Macros defined 
.$255$DUA28: CSUM.OBJJSUM.MLB; 1 g 
$255$DUA28: CSYSLIBISTARLET.MLB;2 1 
TOTALS (all libraries) 24 


1139 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:UPDATE/OBJ=O0BJ$: UPDATE MSRC$:UPDATE/UPDATE=(ENHS:UPDATE) +LIB$:SUM/LIB 
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IGIT 
ONFI 
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